[#Form: Day Book]
Add: Button: After : DSPShowGP : InputNewDate

[Button: InputNewDate]
Title: "Set Date"
Key: Ctrl+R
Action List : InputDate, ModifyDate 

[Button: InputDate]
Key: Ctrl+R
Action: Alter: Rpt InputDate

[Button: ModifyDate]
Key: Ctrl+R
Action: Call : FuncEdit 


[Function: FuncEdit]

;; Variable to Save MasterID
Variable : MSTID : String

;; Walking Over Current Vouchers of Day Book
100 : WALK COLLECTION : SELDayVouchers

;; Set Master ID to a Variable
120 : SET : MSTID : "ID:"+ $$String:$MasterID

;; Set Object In Edit Mode
130 : NEW OBJECT : Voucher : ##MSTID

;; Set Target to the First Ledger (PartyLedger)
140 : SET TARGET : LedgerEntries[1] 

;;Modifies Value of the Methord
160 : SET VALUE : Date : #NDate 

;; Back to Ledger Entry Object
170 : SET TARGET : ..

;; Back to Voucher Object
180 : SET TARGET : ..

;; Saving Object
190 : ACCEPT ALTER

200 : END WALK



[Collection: SELDayVouchers]

Data Source : Report : Current
Fetch : All Ledger Entries


[Report: Rpt InputDate]
Title : "Update Voucher Date"
Form : Input Date
Auto : Yes

[Form: Input Date]
Part : Input Date
Width: 25% Screen
Height: 8% Screen

[Part: Input Date]
Line: New Date

[Line: New Date]

Field : Long Prompt , NewDate
Local : Field: Long Prompt : Set As: "New Date"

[Field : NewDate]
Use : Short Date Field
Modifies : NDate
Border : Thin Box
Width : 15

[System : Variable]
Ndate : " "


[Variable : NDate]
Type : Date
Persistent : Yes